home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB5 Code / Class 6 / QuickExample4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-24  |  4.4 KB  |  120 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   1500
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1500
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin ComctlLib.Toolbar Toolbar1 
  14.       Align           =   1  'Align Top
  15.       Height          =   420
  16.       Left            =   0
  17.       TabIndex        =   0
  18.       Top             =   0
  19.       Width           =   4680
  20.       _ExtentX        =   8255
  21.       _ExtentY        =   741
  22.       Appearance      =   1
  23.       ImageList       =   "ImageList1"
  24.       _Version        =   327682
  25.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  26.          NumButtons      =   5
  27.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  28.             Caption         =   ""
  29.             Key             =   "New"
  30.             Description     =   ""
  31.             Object.ToolTipText     =   "Add New Record"
  32.             Object.Tag             =   ""
  33.             ImageIndex      =   1
  34.          EndProperty
  35.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  36.             Caption         =   ""
  37.             Key             =   "Save"
  38.             Description     =   ""
  39.             Object.ToolTipText     =   "Save Record"
  40.             Object.Tag             =   ""
  41.             ImageIndex      =   2
  42.          EndProperty
  43.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  44.             Caption         =   ""
  45.             Key             =   "Cancel"
  46.             Description     =   ""
  47.             Object.ToolTipText     =   "Cancel"
  48.             Object.Tag             =   ""
  49.             ImageIndex      =   3
  50.          EndProperty
  51.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  52.             Caption         =   ""
  53.             Key             =   "Edit"
  54.             Description     =   ""
  55.             Object.ToolTipText     =   "Edit Record"
  56.             Object.Tag             =   ""
  57.             ImageIndex      =   4
  58.          EndProperty
  59.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  60.             Caption         =   ""
  61.             Key             =   "Delete"
  62.             Description     =   ""
  63.             Object.ToolTipText     =   "Delete Record"
  64.             Object.Tag             =   ""
  65.             ImageIndex      =   5
  66.          EndProperty
  67.       EndProperty
  68.    End
  69.    Begin ComctlLib.ImageList ImageList1 
  70.       Left            =   120
  71.       Top             =   720
  72.       _ExtentX        =   1005
  73.       _ExtentY        =   1005
  74.       BackColor       =   -2147483643
  75.       ImageWidth      =   16
  76.       ImageHeight     =   16
  77.       MaskColor       =   12632256
  78.       _Version        =   327682
  79.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  80.          NumListImages   =   5
  81.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  82.             Picture         =   "QuickExample4.frx":0000
  83.             Key             =   ""
  84.          EndProperty
  85.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  86.             Picture         =   "QuickExample4.frx":0114
  87.             Key             =   ""
  88.          EndProperty
  89.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  90.             Picture         =   "QuickExample4.frx":0228
  91.             Key             =   ""
  92.          EndProperty
  93.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  94.             Picture         =   "QuickExample4.frx":033C
  95.             Key             =   ""
  96.          EndProperty
  97.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  98.             Picture         =   "QuickExample4.frx":0450
  99.             Key             =   ""
  100.          EndProperty
  101.       EndProperty
  102.    End
  103.    Begin VB.Label Label1 
  104.       Caption         =   "Label1"
  105.       Height          =   495
  106.       Left            =   1680
  107.       TabIndex        =   1
  108.       Top             =   720
  109.       Width           =   1215
  110.    End
  111. Attribute VB_Name = "Form1"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Option Explicit
  117. Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
  118. Label1.Caption = Button.Key + " Clicked"
  119. End Sub
  120.